Παράδειγμα αλγορίθμου σε ψευδογλώσσα το οποίο εισάγει δεδομένα σε δύο πίνακες, υπολογίζει το μέγιστο στοιχείο, κάνει αναζήτηση και ταξινόμηση.
Αντιγραφή και επικόλληση στην ιστοσελίδα www.pseudoglossa.gr
Αλγόριθμος nick
N ← 4
Εμφάνισε "Θέλεις να εισάγεις τα δεδομένα (1) ή να βάλω δικές μου τιμές (2);"
Αρχή_επανάληψης
Διάβασε απ
Μέχρις_ότου απ=1 ή απ=2
Αν απ=1 τότε
Για i από 1 μέχρι N
Εμφάνισε "Δώσε το όνομα του", i, "ου μαθητή"
Διάβασε on[i]
Εμφάνισε "Δώσε τον βαθμό του ", on[i], " (0..20)"
Αρχή_επανάληψης
Διάβασε vath[i]
Μέχρις_ότου vath[i]>=0 και vath[i]<=20
Τέλος_επανάληψης
αλλιώς
on[1] ← "nick"
vath[1] ← 15
on[2] ← "anna"
vath[2] ← 13
on[3] ← "olga"
vath[3] ← 19
on[4] ← "mitsos"
vath[4] ← 18
Τέλος_αν
Εμφάνισε "Εχω τα εξής δεδομενα στους πίνακες on και vath:"
Για i από 1 μέχρι N
Εμφάνισε on[i], vath[i]
Τέλος_επανάληψης
Εμφάνισε "------------------------------------------------"
Εμφάνισε "ΕΥΡΕΣΗ ΜΑΧ"
Εμφάνισε "=========="
Εμφάνισε "Θα βρω ποιος μαθητης εχει τον μεγαλυτερο βαθμο (max, pos)"
Εμφάνισε "Δώσε 1 και πάτα ENTER για να συνεχίσεις..."
Διάβασε απ
max ← -1
Για i από 1 μέχρι N
Αν vath[i] > max τότε
max ← vath[i]
pos ← i
Τέλος_αν
Τέλος_επανάληψης
Εμφάνισε "Ο μεγαλύτερος βαθμος ειναι το", max, "και το εχει ο μαθητης με νούμερο ", pos
Εμφάνισε "και το ονομα του ειναι", on[pos]
Εμφάνισε "------------------------------------------------"
Εμφάνισε "ΑΝΑΖΗΤΗΣΗ"
Εμφάνισε "========="
Εμφάνισε "Δωσε ενα ονομα να ψαξω αν υπαρχει"
Διάβασε x
found ← ΨΕΥΔΗΣ
pos ← 0
i ← 1
Όσο i <= N και found=ΨΕΥΔΗΣ επανάλαβε
Εμφάνισε "ψαχνω τον/την", x, "στην θεση", i
Αν on[i]=x τότε
Εμφάνισε " --- βρέθηκε στην θεση", i, "ενημερωνω το found και το pos για να τα θυμάμαι μετα το τελος της επαναληψης"
found ← ΑΛΗΘΗΣ
pos ← i
αλλιώς
i ← i + 1
Τέλος_αν
Τέλος_επανάληψης
Αν found=ΑΛΗΘΗΣ τότε
Εμφάνισε "Υπάρχει στην θεση", pos, "και εχει βαθμο", vath[pos]
αλλιώς
Εμφάνισε "Τα έλεγχξα ολα, το found ειναι ψευδης, αρα ΔΕΝ υπαρχει"
Τέλος_αν
Εμφάνισε "------------------------------------------------"
Εμφάνισε "ΤΑΞΙΝΟΜΗΣΗ"
Εμφάνισε "=========="
Εμφάνισε "Δώσε 1 και πάτα ENTER για να συνεχίσεις..."
Διάβασε απ
Για i από 2 μέχρι N
Για j από N μέχρι i με_βήμα -1
Αν vath[j] > vath[j-1] τότε
Αντιμετάθεσε vath[j], vath[j-1]
Αντιμετάθεσε on[j], on[j-1]
Τέλος_αν
Τέλος_επανάληψης
Τέλος_επανάληψης
Εμφάνισε "Ταξινόμησα τους πίνακες ως προς τον βαθμό σε ΦΘΙΝΟΥΣΑ σειρά (από το μεγάλο προς το μικρό)"
Για i από 1 μέχρι N
Εμφάνισε on[i], vath[i]
Τέλος_επανάληψης
Εμφάνισε "Οπως βλέπεις στην 1η θέση βρίσκεται το max και στην τελευταία θέση το min"
Εμφάνισε "------------------------------------------------"
Εμφάνισε "Δώσε 1 και πάτα ENTER για να συνεχίσεις..."
Διάβασε απ
Για i από 2 μέχρι N
Για j από N μέχρι i με_βήμα -1
Αν on[j] < on[j-1] τότε
Αντιμετάθεσε vath[j], vath[j-1]
Αντιμετάθεσε on[j], on[j-1]
Τέλος_αν
Τέλος_επανάληψης
Τέλος_επανάληψης
Εμφάνισε "Ταξινόμησα τους πίνακες ως προς το όνομα σε ΑΥΞΟΥΣΑ (δηλ αλφαβητική) σειρά (από το Α προς το Ω)"
Για i από 1 μέχρι N
Εμφάνισε on[i], vath[i]
Τέλος_επανάληψης
Εμφάνισε "~~~~~~~~~~~ Τ Ε Λ Ο Σ ~~~~~~~~~~~"
Τέλος nick